home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 0920.ZIP / STRING.ARC / STRINGS.PAS < prev    next >
Pascal/Delphi Source File  |  1987-12-26  |  774b  |  28 lines
  1. UNIT strings;
  2.  
  3. INTERFACE
  4.  
  5. FUNCTION Uppercase (s : STRING) : STRING;
  6. FUNCTION Stringof (ch : CHAR; count : BYTE) : STRING;
  7. PROCEDURE Translate (s : STRING; table : STRING);
  8. FUNCTION ExtractToChar (s : STRING; maxsize : INTEGER; bchar : CHAR) : STRING;
  9. FUNCTION ExtractForCount (s : STRING; maxsize : INTEGER; count : INTEGER) : STRING;
  10. PROCEDURE Padleft (s : STRING; maxsize, newlen  : INTEGER; padchar : CHAR);
  11. PROCEDURE Padright (s : STRING; maxsize, newlen  : INTEGER; padchar : CHAR);
  12.  
  13.  
  14. IMPLEMENTATION
  15.  
  16. {$L strings}
  17.  
  18. FUNCTION Uppercase; EXTERNAL;
  19. FUNCTION Stringof; EXTERNAL;
  20. FUNCTION ExtractForCount; EXTERNAL;
  21. FUNCTION ExtractToChar; EXTERNAL;
  22. PROCEDURE Translate; EXTERNAL;
  23. PROCEDURE Padleft; EXTERNAL;
  24. PROCEDURE Padright; EXTERNAL;
  25.  
  26. END.
  27.  
  28.